home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _rastst2.bas < prev    next >
BASIC Source File  |  1997-06-06  |  1KB  |  46 lines
  1. /* ラスタスクロールのサンプル
  2. /* rasmake.bas で作成したデータでスクロールさせます。
  3.  
  4. dim d(65408)
  5. /*dim d((127+1)*(511+1)-1)
  6. int i,j,s,sx=0,sy=0
  7. dim int dx(9)={0,1,0,-1,1,0,-1,1,0,-1}
  8. dim int dy(9)={0,-1,-1,-1,0,0,0,1,1,1}
  9.  /*
  10. screen 0,3,1,1
  11. sp_init():sp_clr(0)
  12. spfile_def("cat2.sp",1)
  13. palfile_def("cat2.pal",1)
  14. sp_disp(1):sp_on(0,127)
  15. bg_set(0,0,1)
  16.  
  17.  /* 猫を敷き詰める
  18. for i=0 to 31:for j=0 to 31
  19. bg_put(0,((j and 1)+i*2  )and 63,j*2  ,&h108+(i and 1)*&h100)
  20. bg_put(0,((j and 1)+i*2  )and 63,j*2+1,&h109+(i and 1)*&h100)
  21. bg_put(0,((j and 1)+i*2+1)and 63,j*2  ,&h10a+(i and 1)*&h100)
  22. bg_put(0,((j and 1)+i*2+1)and 63,j*2+1,&h10b+(i and 1)*&h100)
  23. next:next
  24.  
  25.  /* ラスタスクロールデータ読み込み
  26. lzh_extend("_scrdat.lzh",d)
  27. /*fread(d,(127+1)*(250+1),fopen("scroll.dat","r"))
  28. /*fcloseall()
  29.  
  30.  /* ラスタスクロールデータのセット
  31. ras_scroll_set(6,d,127,510,2)
  32. /*                 ^^^ ^^^ d が１次元配列なので省略不可
  33.  /* ラスタスクロール開始
  34. ras_scroll_stat(1)
  35.  
  36.  /* main loop
  37. while strig(1)=0
  38. s=stick(1)
  39. sx=(sx+dx(s)) and 511
  40. sy=(sy+dy(s)) and 511
  41. ras_home(sx,sy)  /* 影響が出るのは次の垂直帰線期間後
  42. for j=0 to 80:next
  43.  /* 高クロック機や 030 はもっとループ回数を多くしないと画面が見えません。
  44. endwhile
  45.  
  46.